100 TE=0:PDEV=4:SA=7:REM SET TE TO 1 IF YOU HAVE A 1526 PRINTER
110 POKE53280,0:POKE53281,0:PRINTCHR$(14):PRINTCHR$(30):PRINT"[147]"
120 SUB=49152:FORJ=SUBTOSUB+76:READN:CS=CS+N:POKEJ,N:NEXT
130 IFCS<>10586THENPRINT"ERROR IN DATA STATEMENTS.":END
140 CLOSE4:OPEN4,PDEV,SA:B$="                    ":B$=B$+B$+B$+B$
150 PRINT"[147]"TAB(13)"[197][206][214][197][204][207][208][197][160][205][193][203][197][210]":FORK=1TO6:READW(K):NEXT
160 T$(1)="1) [211]TANDARD [204]ETTER":T$(2)="2) [198]RENCH [198]OLD"
170 PRINT""TAB(9)"[195]HOOSE ENVELOPE TYPE:":GOSUB710
180 A$="":GETA$:IF(A$<>"1")AND(A$<>"2")THEN180
190 ET=VAL(A$):T$(ET)=""+T$(ET):PRINT"[145][145][145][145][145][145][145][145]":GOSUB710
200 IF ET=1 THEN W(1)=64:W(2)=W(2)-4:W(5)=W(5)-5:W(6)=W(6)-2
210 IF TE THEN W(1)=W(1)+4:IF ET=1 THEN W(3)=W(3)-2
220 FORJ=1TO4:READT$(J):NEXT
230 PRINT"  [213]SE DEFAULT RETURN ADDRESS";:GOSUB680
240 IFA$="Y"THEN270
250 IFA$<>"N"THEN230
260 P$=" RETURN":GOSUB610
270 FORJ=1TO4:R$(J)=T$(J):NEXT
280 P$="":GOSUB610:FORK=1TO4:AD$(K)=T$(K):NEXT
290 PRINT"     [195]ENTER ADDRESS LINES";:GOSUB680:CF=(A$="Y")
300 IF CF THEN330
310 CI=0:FORJ=1TO4:IFLEN(AD$(J))>CITHENCI=LEN(AD$(J))
320 NEXT
330 PRINT"    [208]RESS ANY KEY TO BEGIN PRINTING."
340 A$="":GETA$:IFA$=""THEN340
350 S=5:PRINT#4,MID$(B$,1,W(3)+S+2);
360 FORJ=1TOW(1)-2*S:PRINT#4,"-";:NEXT:PRINT#4
370 FORJ=S TO 1 STEP -1
380 PRINT#4,MID$(B$,1,J+W(3))"."MID$(B$,1,W(1)-2*J+2)".":NEXT
390 FORJ=1TOW(4)-S:PRINT#4,MID$(B$,1,W(3)+1)":"MID$(B$,1,W(1))":":NEXT
400 GOSUB660:S=W(3):F1=S:F2=S:FORJ=1TOW(2)
410 Y=1+(-1*(J<=S))+(-1*(J<=(W(2)-S))):ON Y GOTO440,430,420
420 X$=":":IFF1THENX$=".":X=F1:GOTO450
430 PRINT#4,":"MID$(B$,1,S);:GOTO460
440 X$=":":IFF2THENX$=".":X=S-F2+1
450 PRINT#4,MID$(B$,1,X)"."MID$(B$,1,S-X);
460 Z$="":IF(J>1)AND(J<6)THENZ$=" "+R$(J-1):GOTO500
470 IF(J<W(6))OR(J>W(6)+6)OR(INT(J/2)<>J/2)THEN500
480 Z$=AD$((J-W(6))/2+1):CZ=LEN(Z$):IFCF=0THENCZ=CI
490 X=INT((W(1)-CZ)/2):Z$=MID$(B$,1,X)+Z$
500 Z=LEN(Z$):Z$=Z$+MID$(B$,1,W(1)-Z):PRINT#4,":"Z$":";
510 X$=":":ON Y GOTO540,530,520
520 IFF1THENX$=".":X=F1:F1=F1-1:GOTO550
530 X=0:GOTO550
540 IFF2THENX$=".":X=S-F2+1:F2=F2-1
550 PRINT#4,MID$(B$,1,S-X);X$
560 NEXT:GOSUB660:FORJ=1TOW(5)
570 PRINT#4,MID$(B$,1,W(3)+1)":"MID$(B$,1,W(1))":":NEXT
580 GOSUB660:FORJ=1TO6:PRINT#4:NEXT:PRINT"          [205]AKE ANOTHER";:GOSUB680
590 IFA$="Y"THEN280
600 PRINT#4:CLOSE4:END
610 PRINT"":X$="[197]NTER"+P$+" ADDRESS LINES:":PRINTTAB((40-LEN(X$))/2)X$""
620 Z=W(1)-1:FOR J=1 TO 4
630 PRINTMID$(STR$(J),2)"> ";:SYSSUB,T$(J):PRINT:PRINT
640 IFLEN(T$(J))>Z THENPRINT"[204]INE TOO LONG, MAX IS"Z"CHARS. [210]EENTER."
650 NEXT:RETURN
660 PRINT#4,MID$(B$,1,W(3)+2);
670 FORJ=1TOW(1):PRINT#4,"-";:NEXT:PRINT#4:RETURN
680 PRINT" [Y/N]? ";
690 A$="":GETA$:IF(A$<>"Y")AND(A$<>"N")THEN690
700 PRINTMID$("YESNO ",-1*(A$="Y")-4*(A$="N"),3):FORJ=1TO80:NEXT:RETURN
710 PRINTTAB(11)""T$(1):PRINTTAB(11)""T$(2)"":RETURN
720 DATA 32,253,174,32,139,176,133,251,132,252,32,143,173,160,0,32,207,255
730 DATA 201,13,240,6,153,0,2,200,208,243,192,1,208,8,173,0,2,201,32,208,1,136
740 DATA 132,253,152,32,125,180,165,99,160,2,145,251,136,165,98,145,251,136
750 DATA 165,97,145,251,165,253,240,10,185,0,2,145,98,200,196,253,208,246,96
760 DATA 57,26,6,13,19,14
770 REM DEFAULT RETURN ADDRESS
780 DATA "[205]ICHAEL [194]ROUSSARD"
790 DATA "13136 [204]AZY [199]LEN [195]OURT"
800 DATA "[200]ERNDON, [214]IRGINIA  22071-2326"
810 DATA ""